home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 April / inter@ivo 1997-04.iso / cybint15 / bin / gom2.dxr / 00025.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  244 b   |  18 lines
  1. on exitFrame
  2.   global sitio
  3.   onVis(2)
  4.   if sitio = 1 then
  5.     go("Porto")
  6.   else
  7.     if sitio = 2 then
  8.       go("Coimbra")
  9.     else
  10.       if sitio = 3 then
  11.         go("LX")
  12.       else
  13.         go("Algarve")
  14.       end if
  15.     end if
  16.   end if
  17. end
  18.